home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 188 / 01-04 PC Format 188 [2006-06] DVD side 1_.iso / Menus / Scenes / HOME.dir / 00021_Script_DockHandler < prev    next >
Text File  |  2006-04-20  |  2KB  |  126 lines
  1. global dock
  2. global mKey
  3. global itemSpList
  4. global cList
  5. global Active_mKey
  6.  
  7. property myStartPos
  8. property myDockNum
  9. property myScaler
  10. property Sp
  11. property myPos
  12. property myTxt
  13. property clicked
  14. property myPath
  15.  
  16. on init me, aPos, aNum, aPath, aSpriteNum
  17.   myStartPos = vector(aPos.locH, aPos.locV, 0)
  18.   myPos = myStartPos
  19.   myDockNum = aNum
  20.   myPath = aPath
  21.   Sp = sprite(aSpriteNum)
  22.   myScaler = 0
  23.   myDir = 0
  24.   myTxt = sprite(Sp.spritenum + 1)
  25.   lf = myStartPos.x - (dock.bWidth / 2)
  26.   tp = myStartPos.y - (dock.bWidth / 2)
  27.   rt = myStartPos.x + (dock.bWidth / 2)
  28.   bt = myStartPos.y + (dock.bWidth / 2)
  29.   Sp.rect = rect(lf,tp,rt,bt)
  30. end
  31.  
  32. on exitframe me
  33.   if the mouseV < 570 then
  34.     
  35.     mPos = vector(the mouseH, the mouseV, 0)
  36.     myDist = mPos.distanceTo(myPos)
  37.     Dock.distList[myDockNum] = myDist
  38.     
  39.     if myDist < dock.minDist then
  40.       myScaler = (dock.minDist - myDist) / dock.minDist
  41.       myWidth = dock.bWidth + (dock.widthDif * myScaler)
  42.     else
  43.       myWidth = dock.bWidth
  44.       myPos = myStartPos
  45.       if clicked = false then
  46.         myTxt.visible = false
  47.       end if 
  48.     end if
  49.     
  50.     myTxt.loc = point((myPos.x - (myTxt.width / 2)), myPos.y - (myWidth / 1.2))
  51.     lf = myPos.x - (myWidth / 2)
  52.     tp = myPos.y - (myWidth / 2)
  53.     rt = myPos.x + (myWidth / 2)
  54.     bt = myPos.y + (myWidth / 2)
  55.     Sp.rect = rect(lf,tp,rt,bt)
  56.     
  57.     if dock.biggestBut = myDockNum then
  58.       if myDist < dock.minDist then
  59.         myTxt.visible = true
  60.       end if
  61.     else
  62.       
  63.       myTxt.visible = false
  64.       
  65.     end if
  66.   else
  67.     myWidth = dock.bWidth
  68.     myPos = myStartPos
  69.     if clicked = false then
  70.       myTxt.visible = false
  71.     end if
  72.     
  73.     
  74.   end if
  75.   
  76.   
  77. end
  78.  
  79. on mouseUp me
  80.   
  81.   if clicked <> true then
  82.     clearScriptedSprites(cList.mainmenu)
  83.     clearScriptedSprites(cList.itemmenu)
  84.     
  85.     
  86.     sendAllsprites(#UnclickDock)
  87.     --    myTxt.member.color = rgb(255,255,255)
  88.     --    Sp.color = rgb(255,255,255)
  89.     clicked = true
  90.     GenPane(myDockNum)
  91.     Active_mKey = myDockNum
  92.   else
  93.     shrinkmenuframes
  94.     clearScriptedSprites(cList.itemmenu)
  95.     
  96.     sendAllsprites(#UnclickDock)
  97.     clicked = false
  98.   end if
  99.   
  100. end
  101.  
  102. on UnclickDock
  103.   
  104.   if clicked = true then
  105.     shrinkmenuframes
  106.   end if
  107.   
  108.   
  109.   Sp.color = rgb(0,0,0)
  110.   myTxt.member.color = rgb(255,255,255)
  111.   clicked = false
  112. end
  113.  
  114. on mouseEnter me
  115.   
  116. end
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.